home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / aclok.src < prev    next >
Text File  |  1990-10-18  |  2KB  |  41 lines

  1. %%HP: T(3)A(D)F(.);
  2. @ by Pete Stoppani
  3. DIR
  4.   CLOK
  5.     \<< RCLF -16 SF -17 CF -18 CF -19 SF ERASE 'PPAR' PURGE PICT { # 34d # 1d }
  6.       FACE GOR { # 0d # 0d } PVIEW GET.TMS \-> pt pm ps
  7.       \<< pt HR.HND pm MIN.HND ps SEC.HND 1 WAIT
  8.         DO GET.TMS \-> t m s
  9.           \<<
  10.             IF 's\=/ ps'
  11.             THEN ps SEC.HND s SEC.HND s 'ps' STO
  12.             END
  13.             IF 'm\=/ pm'
  14.             THEN
  15.               IF 'm MOD 12==0'
  16.               THEN pt HR.HND t HR.HND t 'pt' STO
  17.               END pm MIN.HND m MIN.HND m 'pm' STO
  18.             END
  19.           \>>
  20.         UNTIL KEY
  21.         END DROP STOF 'PPAR' PURGE
  22.       \>>
  23.     \>>
  24.   SEC.HND
  25.     \<< 60 / 360 * NEG 90 + \-> d
  26.       \<< 2.3 d \->V2 2.7 d \->V2 TLINE
  27.       \>>
  28.     \>>
  29.   MIN.HND
  30.     \<< 2.5 SWAP 60 / 360 * NEG 90 + \->V2 (0,0) TLINE
  31.     \>>
  32.   HR.HND
  33.     \<< 1.55 SWAP HMS\-> 12 MOD 30 * NEG 90 + \->V2 (0,0) SWAP TLINE
  34.     \>>
  35.   FACE  @ [Note: see NFACE for a new, improved clock face!  -jkh-]
  36. GROB 63 63 000000CFF100000000000C380E1000000000830800E00000000060080003000000081000000C000000041000000410000002200000042000008120000002C0000040000000000100002000000000020000100000000004000800000000000800080000000000080004000000000000100200000000000020010000000000004003000000000000608C00000000000890800000000000008040000000000000014000000000000001400000000000000120000000000000022000000000000002200000000000000220000000000000021000000000000004100000000000000410000000000000041000000E300000041000000220000004F00000022000008710000002200000041000000E30000004100000000000000410000000000000041000000000000004200000000000000220000000000000022000000000000002200000000000000240000000000000014000000000000001400000000000000180000000000000808800000000000880070000000000007001000000000000400200000000000020040000000000001008000000000008000800000000000800001000000000040000200000000002000040000000000100008120000002C0000002200000042000000410000004100000081000000C000000006008000300000000830800E0000000000C380E100000000000CFF1000000
  37.   GET.TMS
  38.     \<< TIME DUP FP 100 * DUP IP SWAP FP 100 * IP
  39.     \>>
  40. END
  41.